/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / FORTRAN Demo Projects / LS Fortran 3.3 Demos / vDemoLF.f

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 76 44 65 6d 6f 4c | 46 2e 66 00 00 00 00 00 |..vDemoL|F.f.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 11 21 00 | 00 01 ac a9 91 f5 dd a9 |......!.|........|
|00000060| 91 f5 dd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 79 ae 00 00 |........|....y...|
|00000080| 43 20 4e 4f 54 45 3a 20 | 52 65 61 64 20 74 68 65 |C NOTE: |Read the|
|00000090| 20 22 4d 50 57 20 46 6f | 72 74 72 61 6e 73 22 20 | "MPW Fo|rtrans" |
|000000a0| 73 65 63 74 69 6f 6e 20 | 6f 66 20 22 41 62 6f 75 |section |of "Abou|
|000000b0| 74 20 43 6f 6d 70 69 6c | 65 72 73 22 0d 43 20 62 |t Compil|ers".C b|
|000000c0| 65 66 6f 72 65 20 63 6f | 6d 70 69 6c 69 6e 67 20 |efore co|mpiling |
|000000d0| 4c 46 20 70 72 6f 67 72 | 61 6d 73 20 74 68 61 74 |LF progr|ams that|
|000000e0| 20 75 73 65 20 46 61 63 | 65 57 61 72 65 20 6d 6f | use Fac|eWare mo|
|000000f0| 64 75 6c 65 73 2e 0d 0d | 43 20 56 69 65 77 49 74 |dules...|C ViewIt|
|00000100| 20 32 2e 32 20 44 65 6d | 6f 6e 73 74 72 61 74 69 | 2.2 Dem|onstrati|
|00000110| 6f 6e 20 50 72 6f 67 72 | 61 6d 0d 43 20 a9 46 61 |on Progr|am.C .Fa|
|00000120| 63 65 57 61 72 65 20 31 | 39 39 31 2d 39 33 2e 20 |ceWare 1|991-93. |
|00000130| 20 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 | All Rig|hts Rese|
|00000140| 72 76 65 64 2e 0d 0d 21 | 21 4d 20 49 6e 6c 69 6e |rved...!|!M Inlin|
|00000150| 65 73 2e 66 0d 21 21 49 | 20 46 61 63 65 50 72 6f |es.f.!!I| FacePro|
|00000160| 63 4c 46 2e 69 6e 63 0d | 0d 20 20 20 20 20 20 50 |cLF.inc.|.      P|
|00000170| 52 4f 47 52 41 4d 20 76 | 44 65 6d 6f 4c 46 0d 09 |ROGRAM v|DemoLF..|
|00000180| 69 6d 70 6c 69 63 69 74 | 20 6e 6f 6e 65 0d 43 20 |implicit| none.C |
|00000190| 4e 4f 54 45 3a 20 49 66 | 20 79 6f 75 20 75 73 65 |NOTE: If| you use|
|000001a0| 20 74 68 65 20 22 21 21 | 47 22 20 64 69 72 65 63 | the "!!|G" direc|
|000001b0| 74 69 76 65 20 66 6f 72 | 20 70 72 65 63 6f 6d 70 |tive for| precomp|
|000001c0| 69 6c 65 64 20 67 6c 6f | 62 61 6c 73 2c 20 61 64 |iled glo|bals, ad|
|000001d0| 64 0d 43 20 6f 75 72 20 | 46 61 63 65 53 74 6f 72 |d.C our |FaceStor|
|000001e0| 4c 46 2e 69 6e 63 20 67 | 6c 6f 62 61 6c 73 20 74 |LF.inc g|lobals t|
|000001f0| 6f 20 79 6f 75 72 73 20 | 61 6e 64 20 74 68 65 6e |o yours |and then|
|00000200| 20 72 65 6d 6f 76 65 20 | 66 6f 6c 6c 6f 77 69 6e | remove |followin|
|00000210| 67 20 6c 69 6e 65 0d 09 | 69 6e 63 6c 75 64 65 20 |g line..|include |
|00000220| 27 46 61 63 65 53 74 6f | 72 4c 46 2e 69 6e 63 27 |'FaceSto|rLF.inc'|
|00000230| 0d 20 20 20 20 20 20 72 | 65 63 6f 72 64 20 2f 46 |.      r|ecord /F|
|00000240| 61 63 65 52 65 63 2f 20 | 66 52 65 63 0d 20 20 20 |aceRec/ |fRec.   |
|00000250| 20 20 20 63 6f 6d 6d 6f | 6e 2f 46 61 63 65 53 74 |   commo|n/FaceSt|
|00000260| 75 66 66 2f 66 52 65 63 | 0d 09 6c 6f 67 69 63 61 |uff/fRec|..logica|
|00000270| 6c 2a 34 20 68 65 6c 70 | 53 68 6f 77 6e 0d 09 73 |l*4 help|Shown..s|
|00000280| 74 72 75 63 74 75 72 65 | 20 2f 44 61 74 61 52 65 |tructure| /DataRe|
|00000290| 63 2f 0d 09 20 20 69 6e | 74 65 67 65 72 2a 32 20 |c/..  in|teger*2 |
|000002a0| 6d 79 49 6e 74 65 67 65 | 72 0d 09 20 20 72 65 61 |myIntege|r..  rea|
|000002b0| 6c 2a 34 20 6d 79 52 65 | 61 6c 0d 09 20 20 63 68 |l*4 myRe|al..  ch|
|000002c0| 61 72 61 63 74 65 72 2a | 31 30 30 20 6d 79 53 74 |aracter*|100 mySt|
|000002d0| 72 69 6e 67 0d 09 20 20 | 69 6e 74 65 67 65 72 2a |ring..  |integer*|
|000002e0| 34 20 6d 79 46 6c 61 67 | 73 0d 09 65 6e 64 20 73 |4 myFlag|s..end s|
|000002f0| 74 72 75 63 74 75 72 65 | 0d 09 72 65 63 6f 72 64 |tructure|..record|
|00000300| 20 2f 44 61 74 61 52 65 | 63 2f 20 6d 79 52 65 63 | /DataRe|c/ myRec|
|00000310| 0d 09 69 6e 74 65 67 65 | 72 2a 32 20 6d 79 4c 69 |..intege|r*2 myLi|
|00000320| 73 74 0d 09 69 6e 74 65 | 67 65 72 2a 34 20 6d 79 |st..inte|ger*4 my|
|00000330| 50 74 72 2c 6f 6c 64 54 | 69 63 6b 73 2c 6e 65 77 |Ptr,oldT|icks,new|
|00000340| 54 69 63 6b 73 0d 09 72 | 65 61 6c 2a 34 20 74 68 |Ticks..r|eal*4 th|
|00000350| 65 52 65 61 6c 2c 64 65 | 6c 74 61 0d 09 65 78 74 |eReal,de|lta..ext|
|00000360| 65 72 6e 61 6c 20 4f 76 | 65 72 50 72 6f 63 0d 0d |ernal Ov|erProc..|
|00000370| 09 6d 79 52 65 63 2e 6d | 79 49 6e 74 65 67 65 72 |.myRec.m|yInteger|
|00000380| 20 3d 20 30 0d 09 6d 79 | 52 65 63 2e 6d 79 52 65 | = 0..my|Rec.myRe|
|00000390| 61 6c 20 3d 20 36 2e 32 | 0d 09 6d 79 52 65 63 2e |al = 6.2|..myRec.|
|000003a0| 6d 79 53 74 72 69 6e 67 | 20 3d 20 27 48 65 6c 6c |myString| = 'Hell|
|000003b0| 6f 27 0d 09 6d 79 52 65 | 63 2e 6d 79 46 6c 61 67 |o'..myRe|c.myFlag|
|000003c0| 73 20 3d 20 31 30 0d 09 | 6d 79 4c 69 73 74 20 3d |s = 10..|myList =|
|000003d0| 20 32 0d 09 6f 6c 64 54 | 69 63 6b 73 20 3d 20 30 | 2..oldT|icks = 0|
|000003e0| 0d 09 74 68 65 52 65 61 | 6c 20 3d 20 36 2e 30 0d |..theRea|l = 6.0.|
|000003f0| 0d 43 20 49 6e 69 74 69 | 61 6c 69 7a 65 20 46 61 |.C Initi|alize Fa|
|00000400| 63 65 49 74 0d 20 20 20 | 20 20 20 66 52 65 63 2e |ceIt.   |   fRec.|
|00000410| 75 4e 61 6d 65 20 3d 20 | 27 76 44 65 6d 6f 2e 52 |uName = |'vDemo.R|
|00000420| 73 72 63 27 0d 20 20 20 | 20 20 20 63 61 6c 6c 20 |src'.   |   call |
|00000430| 46 61 63 65 49 74 28 30 | 2c 44 6f 49 6e 69 74 2c |FaceIt(0|,DoInit,|
|00000440| 30 2c 30 2c 30 2c 30 29 | 0d 0d 43 20 4f 70 65 6e |0,0,0,0)|..C Open|
|00000450| 20 4d 6f 64 65 6c 65 73 | 73 20 57 69 6e 64 6f 77 | Modeles|s Window|
|00000460| 20 75 73 69 6e 67 20 46 | 57 4e 44 20 31 30 30 30 | using F|WND 1000|
|00000470| 0d 09 63 61 6c 6c 20 46 | 61 63 65 49 74 28 30 2c |..call F|aceIt(0,|
|00000480| 4e 65 77 57 6e 64 2c 31 | 30 30 30 2c 31 2c 30 2c |NewWnd,1|000,1,0,|
|00000490| 30 29 0d 0d 20 20 20 20 | 20 20 64 6f 20 77 68 69 |0)..    |  do whi|
|000004a0| 6c 65 20 28 2e 74 72 75 | 65 2e 29 0d 20 20 20 20 |le (.tru|e.).    |
|000004b0| 20 20 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |    call| FaceIt(|
|000004c0| 30 2c 44 6f 4c 6f 6f 70 | 2c 30 2c 30 2c 30 2c 30 |0,DoLoop|,0,0,0,0|
|000004d0| 29 0d 43 20 53 74 61 6e | 64 61 72 64 20 22 41 62 |).C Stan|dard "Ab|
|000004e0| 6f 75 74 22 20 4d 65 6e | 75 20 49 74 65 6d 20 53 |out" Men|u Item S|
|000004f0| 65 6c 65 63 74 69 6f 6e | 0d 09 20 20 69 66 20 28 |election|..  if (|
|00000500| 28 66 52 65 63 2e 75 4d | 65 6e 75 49 44 20 3d 20 |(fRec.uM|enuID = |
|00000510| 31 30 31 29 2e 61 6e 64 | 2e 28 66 52 65 63 2e 75 |101).and|.(fRec.u|
|00000520| 4d 65 6e 75 49 74 65 6d | 20 3d 20 31 29 29 20 74 |MenuItem| = 1)) t|
|00000530| 68 65 6e 0d 09 20 20 20 | 20 66 52 65 63 2e 75 53 |hen..   | fRec.uS|
|00000540| 74 72 69 6e 67 20 3d 20 | 27 44 65 6d 6f 6e 73 74 |tring = |'Demonst|
|00000550| 72 61 74 69 6f 6e 20 6f | 66 20 74 68 65 20 75 73 |ration o|f the us|
|00000560| 65 20 6f 66 20 56 69 65 | 77 49 74 27 0d 20 20 20 |e of Vie|wIt'.   |
|00000570| 20 20 2b 2f 2f 63 68 61 | 72 28 31 33 29 2f 2f 27 |  +//cha|r(13)//'|
|00000580| 77 69 6e 64 6f 77 73 20 | 69 6e 20 61 20 46 61 63 |windows |in a Fac|
|00000590| 65 49 74 2d 62 61 73 65 | 64 20 70 72 6f 67 72 61 |eIt-base|d progra|
|000005a0| 6d 2e 27 0d 09 20 20 20 | 20 63 61 6c 6c 20 46 61 |m.'..   | call Fa|
|000005b0| 63 65 49 74 28 30 2c 53 | 68 6f 53 74 72 2c 33 2c |ceIt(0,S|hoStr,3,|
|000005c0| 31 32 2c 28 31 20 2b 20 | 28 34 30 39 2a 36 35 35 |12,(1 + |(409*655|
|000005d0| 33 36 29 29 2c 30 29 0d | 43 20 48 69 74 20 69 6e |36)),0).|C Hit in|
|000005e0| 20 4d 6f 64 65 6c 65 73 | 73 20 57 69 6e 64 6f 77 | Modeles|s Window|
|000005f0| 27 73 20 22 4f 70 65 6e | 20 4d 6f 64 61 6c 22 20 |'s "Open| Modal" |
|00000600| 42 75 74 74 6f 6e 0d 09 | 20 20 65 6c 73 65 20 69 |Button..|  else i|
|00000610| 66 20 28 28 66 52 65 63 | 2e 75 4d 65 6e 75 49 44 |f ((fRec|.uMenuID|
|00000620| 20 3d 20 31 30 30 30 29 | 2e 61 6e 64 2e 28 66 52 | = 1000)|.and.(fR|
|00000630| 65 63 2e 77 63 48 69 74 | 20 3d 20 32 29 29 20 74 |ec.wcHit| = 2)) t|
|00000640| 68 65 6e 0d 09 20 20 20 | 20 63 61 6c 6c 20 46 61 |hen..   | call Fa|
|00000650| 63 65 49 74 28 30 2c 4e | 65 77 57 6e 64 2c 31 30 |ceIt(0,N|ewWnd,10|
|00000660| 30 31 2c 30 2c 30 2c 30 | 29 20 20 21 4f 70 65 6e |01,0,0,0|)  !Open|
|00000670| 20 4d 6f 64 61 6c 20 57 | 69 6e 64 6f 77 0d 09 20 | Modal W|indow.. |
|00000680| 20 20 20 64 6f 20 77 68 | 69 6c 65 20 28 2e 74 72 |   do wh|ile (.tr|
|00000690| 75 65 2e 29 0d 09 20 20 | 20 20 20 20 63 61 6c 6c |ue.)..  |    call|
|000006a0| 20 46 61 63 65 49 74 28 | 30 2c 4d 64 6c 57 6e 64 | FaceIt(|0,MdlWnd|
|000006b0| 2c 31 30 30 31 2c 30 2c | 30 2c 30 29 20 20 21 50 |,1001,0,|0,0)  !P|
|000006c0| 72 6f 63 65 73 73 20 4d | 6f 64 61 6c 20 45 76 65 |rocess M|odal Eve|
|000006d0| 6e 74 73 0d 09 09 69 66 | 20 28 66 52 65 63 2e 77 |nts...if| (fRec.w|
|000006e0| 63 48 69 74 20 3d 20 2d | 31 29 20 74 68 65 6e 09 |cHit = -|1) then.|
|000006f0| 20 20 20 20 21 48 69 74 | 20 69 6e 20 43 6c 6f 73 |    !Hit| in Clos|
|00000700| 65 20 42 6f 78 0d 09 09 | 20 20 65 78 69 74 0d 09 |e Box...|  exit..|
|00000710| 09 65 6c 73 65 20 69 66 | 20 28 66 52 65 63 2e 77 |.else if| (fRec.w|
|00000720| 63 48 69 74 20 3d 20 31 | 29 20 74 68 65 6e 20 20 |cHit = 1|) then  |
|00000730| 20 20 20 21 48 69 74 20 | 69 6e 20 22 4f 70 65 6e |   !Hit |in "Open|
|00000740| 20 4e 65 73 74 65 64 22 | 0d 09 09 20 20 6d 79 50 | Nested"|...  myP|
|00000750| 74 72 20 3d 20 25 6c 6f | 63 28 6d 79 52 65 63 29 |tr = %lo|c(myRec)|
|00000760| 0d 09 09 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |...  cal|l FaceIt|
|00000770| 28 30 2c 4e 65 77 57 6e | 64 2c 31 30 30 32 2c 30 |(0,NewWn|d,1002,0|
|00000780| 2c 31 31 30 2c 6d 79 50 | 74 72 29 21 4f 70 65 6e |,110,myP|tr)!Open|
|00000790| 20 4e 65 73 74 65 64 20 | 4d 6f 64 61 6c 0d 09 09 | Nested |Modal...|
|000007a0| 20 20 63 61 6c 6c 20 46 | 61 63 65 49 74 28 30 2c |  call F|aceIt(0,|
|000007b0| 47 65 74 43 74 6c 2c 31 | 30 30 32 2c 30 2c 33 2c |GetCtl,1|002,0,3,|
|000007c0| 33 29 09 20 20 21 4c 69 | 6e 6b 20 53 63 72 6f 6c |3).  !Li|nk Scrol|
|000007d0| 6c 61 62 6c 65 20 4c 69 | 73 74 0d 09 09 20 20 63 |lable Li|st...  c|
|000007e0| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 4c 6e 6b |all Face|It(0,Lnk|
|000007f0| 43 74 6c 2c 66 52 65 63 | 2e 63 43 6f 6e 74 72 6f |Ctl,fRec|.cContro|
|00000800| 6c 2c 25 6c 6f 63 28 6d | 79 4c 69 73 74 29 2c 32 |l,%loc(m|yList),2|
|00000810| 2c 30 29 0d 09 09 20 20 | 63 61 6c 6c 20 46 61 63 |,0)...  |call Fac|
|00000820| 65 49 74 28 30 2c 47 65 | 74 43 74 6c 2c 31 30 30 |eIt(0,Ge|tCtl,100|
|00000830| 32 2c 30 2c 32 2c 33 29 | 09 20 20 21 53 65 74 20 |2,0,2,3)|.  !Set |
|00000840| 4f 76 65 72 72 69 64 65 | 20 50 72 6f 63 0d 09 09 |Override| Proc...|
|00000850| 20 20 63 61 6c 6c 20 46 | 61 63 65 49 74 28 30 2c |  call F|aceIt(0,|
|00000860| 4f 76 72 43 74 6c 2c 66 | 52 65 63 2e 63 43 6f 6e |OvrCtl,f|Rec.cCon|
|00000870| 74 72 6f 6c 2c 25 6c 6f | 63 28 4f 76 65 72 50 72 |trol,%lo|c(OverPr|
|00000880| 6f 63 29 2c 30 2c 30 29 | 0d 09 09 20 20 63 61 6c |oc),0,0)|...  cal|
|00000890| 6c 20 46 61 63 65 49 74 | 28 30 2c 53 65 74 56 61 |l FaceIt|(0,SetVa|
|000008a0| 6c 2c 31 30 30 32 2c 30 | 2c 30 2c 30 29 09 20 20 |l,1002,0|,0,0).  |
|000008b0| 21 53 65 74 20 4c 69 6e | 6b 65 64 20 56 61 6c 75 |!Set Lin|ked Valu|
|000008c0| 65 73 0d 09 09 20 20 68 | 65 6c 70 53 68 6f 77 6e |es...  h|elpShown|
|000008d0| 20 3d 20 2e 66 61 6c 73 | 65 2e 0d 09 09 20 20 64 | = .fals|e....  d|
|000008e0| 6f 20 77 68 69 6c 65 20 | 28 2e 74 72 75 65 2e 29 |o while |(.true.)|
|000008f0| 0d 09 09 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |...    c|all Face|
|00000900| 49 74 28 30 2c 4d 64 6c | 57 6e 64 2c 31 30 30 32 |It(0,Mdl|Wnd,1002|
|00000910| 2c 2d 32 2c 30 2c 30 29 | 20 21 50 72 6f 63 65 73 |,-2,0,0)| !Proces|
|00000920| 73 20 4d 6f 64 61 6c 20 | 45 76 65 6e 74 73 0d 09 |s Modal |Events..|
|00000930| 09 20 20 20 20 69 66 20 | 28 66 52 65 63 2e 75 4d |.    if |(fRec.uM|
|00000940| 65 6e 75 49 44 20 3d 20 | 30 29 20 74 68 65 6e 20 |enuID = |0) then |
|00000950| 20 20 20 20 20 20 20 21 | 4e 6f 20 4d 65 73 73 61 |       !|No Messa|
|00000960| 67 65 0d 09 09 20 20 20 | 20 20 20 6e 65 77 54 69 |ge...   |   newTi|
|00000970| 63 6b 73 20 3d 20 54 69 | 63 6b 43 6f 75 6e 74 0d |cks = Ti|ckCount.|
|00000980| 09 09 09 69 66 20 28 6e | 65 77 54 69 63 6b 73 20 |...if (n|ewTicks |
|00000990| 3e 20 6f 6c 64 54 69 63 | 6b 73 20 2b 20 36 30 29 |> oldTic|ks + 60)|
|000009a0| 20 74 68 65 6e 0d 09 09 | 09 20 20 6f 6c 64 54 69 | then...|.  oldTi|
|000009b0| 63 6b 73 20 3d 20 6e 65 | 77 54 69 63 6b 73 0d 09 |cks = ne|wTicks..|
|000009c0| 09 09 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |..  call| FaceIt(|
|000009d0| 30 2c 47 65 74 43 74 6c | 2c 31 30 30 32 2c 30 2c |0,GetCtl|,1002,0,|
|000009e0| 32 2c 38 29 0d 09 09 09 | 20 20 63 61 6c 6c 20 53 |2,8)....|  call S|
|000009f0| 65 74 43 74 6c 56 61 6c | 75 65 28 25 76 61 6c 28 |etCtlVal|ue(%val(|
|00000a00| 66 52 65 63 2e 63 43 6f | 6e 74 72 6f 6c 29 2c 0d |fRec.cCo|ntrol),.|
|00000a10| 20 20 20 20 20 2b 09 09 | 09 25 76 61 6c 28 69 6e |     +..|.%val(in|
|00000a20| 74 32 28 6d 6f 64 28 66 | 52 65 63 2e 63 56 61 6c |t2(mod(f|Rec.cVal|
|00000a30| 75 65 2c 34 29 20 2b 20 | 31 29 29 29 0d 09 09 09 |ue,4) + |1)))....|
|00000a40| 65 6e 64 20 69 66 0d 09 | 09 20 20 20 20 65 6c 73 |end if..|.    els|
|00000a50| 65 20 69 66 20 28 66 52 | 65 63 2e 77 76 48 69 74 |e if (fR|ec.wvHit|
|00000a60| 20 3d 20 31 29 20 74 68 | 65 6e 09 20 20 21 48 69 | = 1) th|en.  !Hi|
|00000a70| 74 20 69 6e 20 56 69 65 | 77 20 23 31 0d 09 09 20 |t in Vie|w #1... |
|00000a80| 20 20 20 20 20 69 66 20 | 28 66 52 65 63 2e 77 63 |     if |(fRec.wc|
|00000a90| 48 69 74 20 3d 20 31 29 | 20 74 68 65 6e 09 20 20 |Hit = 1)| then.  |
|00000aa0| 21 48 69 74 20 69 6e 20 | 22 4f 4b 22 20 42 75 74 |!Hit in |"OK" But|
|00000ab0| 74 6f 6e 0d 09 09 09 20 | 20 65 78 69 74 0d 09 09 |ton.... | exit...|
|00000ac0| 09 65 6c 73 65 20 69 66 | 20 28 66 52 65 63 2e 77 |.else if| (fRec.w|
|00000ad0| 63 48 69 74 20 3d 20 32 | 29 20 74 68 65 6e 20 20 |cHit = 2|) then  |
|00000ae0| 20 21 48 69 74 20 69 6e | 20 22 53 68 6f 77 2f 48 | !Hit in| "Show/H|
|00000af0| 69 64 65 22 0d 09 09 09 | 20 20 69 66 20 28 68 65 |ide"....|  if (he|
|00000b00| 6c 70 53 68 6f 77 6e 29 | 20 74 68 65 6e 0d 09 09 |lpShown)| then...|
|00000b10| 09 20 20 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |.    cal|l FaceIt|
|00000b20| 28 30 2c 53 68 6f 43 74 | 6c 2c 30 2c 30 2c 2d 33 |(0,ShoCt|l,0,0,-3|
|00000b30| 2c 32 29 20 20 21 48 69 | 64 65 20 76 33 2c 20 53 |,2)  !Hi|de v3, S|
|00000b40| 68 6f 77 20 76 32 0d 09 | 09 09 20 20 20 20 68 65 |how v2..|..    he|
|00000b50| 6c 70 53 68 6f 77 6e 20 | 3d 20 2e 66 61 6c 73 65 |lpShown |= .false|
|00000b60| 2e 0d 09 09 09 20 20 65 | 6c 73 65 0d 09 09 09 20 |.....  e|lse.... |
|00000b70| 20 20 20 63 61 6c 6c 20 | 46 61 63 65 49 74 28 30 |   call |FaceIt(0|
|00000b80| 2c 53 68 6f 43 74 6c 2c | 30 2c 30 2c 2d 32 2c 33 |,ShoCtl,|0,0,-2,3|
|00000b90| 29 20 20 21 48 69 64 65 | 20 76 32 2c 20 53 68 6f |)  !Hide| v2, Sho|
|00000ba0| 77 20 76 33 0d 09 09 09 | 20 20 20 20 68 65 6c 70 |w v3....|    help|
|00000bb0| 53 68 6f 77 6e 20 3d 20 | 2e 74 72 75 65 2e 0d 09 |Shown = |.true...|
|00000bc0| 09 09 20 20 65 6e 64 20 | 69 66 0d 09 09 09 65 6e |..  end |if....en|
|00000bd0| 64 20 69 66 0d 09 09 20 | 20 20 20 65 6c 73 65 20 |d if... |   else |
|00000be0| 69 66 20 28 66 52 65 63 | 2e 77 76 48 69 74 20 3d |if (fRec|.wvHit =|
|00000bf0| 20 32 29 20 74 68 65 6e | 20 20 20 20 20 21 48 69 | 2) then|     !Hi|
|00000c00| 74 20 69 6e 20 56 69 65 | 77 20 23 32 0d 09 09 20 |t in Vie|w #2... |
|00000c10| 20 20 20 20 20 69 66 20 | 28 28 66 52 65 63 2e 77 |     if |((fRec.w|
|00000c20| 63 48 69 74 20 3d 20 36 | 29 2e 6f 72 2e 28 66 52 |cHit = 6|).or.(fR|
|00000c30| 65 63 2e 77 63 48 69 74 | 20 3d 20 37 29 29 20 74 |ec.wcHit| = 7)) t|
|00000c40| 68 65 6e 0d 09 09 09 20 | 20 63 61 6c 6c 20 46 61 |hen.... | call Fa|
|00000c50| 63 65 49 74 28 30 2c 47 | 65 74 43 74 6c 2c 31 30 |ceIt(0,G|etCtl,10|
|00000c60| 30 32 2c 30 2c 32 2c 69 | 6e 74 34 28 66 52 65 63 |02,0,2,i|nt4(fRec|
|00000c70| 2e 77 63 48 69 74 29 29 | 0d 09 09 09 20 20 64 65 |.wcHit))|....  de|
|00000c80| 6c 74 61 20 3d 20 30 2e | 30 30 31 20 2a 20 28 66 |lta = 0.|001 * (f|
|00000c90| 52 65 63 2e 63 4d 69 6e | 20 2d 20 32 29 0d 09 09 |Rec.cMin| - 2)...|
|00000ca0| 09 20 20 6d 79 52 65 63 | 2e 6d 79 52 65 61 6c 20 |.  myRec|.myReal |
|00000cb0| 3d 20 6d 79 52 65 63 2e | 6d 79 52 65 61 6c 20 2b |= myRec.|myReal +|
|00000cc0| 20 64 65 6c 74 61 0d 09 | 09 09 20 20 63 61 6c 6c | delta..|..  call|
|00000cd0| 20 46 61 63 65 49 74 28 | 30 2c 53 65 74 56 61 6c | FaceIt(|0,SetVal|
|00000ce0| 2c 31 30 30 32 2c 30 2c | 32 2c 32 29 0d 09 09 09 |,1002,0,|2,2)....|
|00000cf0| 20 20 63 61 6c 6c 20 44 | 65 6c 61 79 28 25 76 61 |  call D|elay(%va|
|00000d00| 6c 28 35 29 2c 66 52 65 | 63 2e 75 49 34 29 0d 09 |l(5),fRe|c.uI4)..|
|00000d10| 09 09 65 6e 64 20 69 66 | 0d 09 09 20 20 20 20 65 |..end if|...    e|
|00000d20| 6e 64 20 69 66 0d 09 09 | 20 20 65 6e 64 20 64 6f |nd if...|  end do|
|00000d30| 0d 09 09 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |...  cal|l FaceIt|
|00000d40| 28 30 2c 47 65 74 56 61 | 6c 2c 31 30 30 32 2c 30 |(0,GetVa|l,1002,0|
|00000d50| 2c 30 2c 30 29 09 20 20 | 21 47 65 74 20 4c 69 6e |,0,0).  |!Get Lin|
|00000d60| 6b 65 64 20 56 61 6c 75 | 65 73 0d 09 09 20 20 63 |ked Valu|es...  c|
|00000d70| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 45 6e 64 |all Face|It(0,End|
|00000d80| 57 6e 64 2c 31 30 30 32 | 2c 30 2c 30 2c 30 29 09 |Wnd,1002|,0,0,0).|
|00000d90| 20 20 21 43 6c 6f 73 65 | 20 4e 65 73 74 65 64 20 |  !Close| Nested |
|00000da0| 4d 6f 64 61 6c 0d 09 09 | 65 6e 64 20 69 66 0d 09 |Modal...|end if..|
|00000db0| 20 20 20 20 65 6e 64 20 | 64 6f 0d 09 20 20 20 20 |    end |do..    |
|00000dc0| 63 61 6c 6c 20 46 61 63 | 65 49 74 28 30 2c 45 6e |call Fac|eIt(0,En|
|00000dd0| 64 57 6e 64 2c 31 30 30 | 31 2c 30 2c 30 2c 30 29 |dWnd,100|1,0,0,0)|
|00000de0| 20 20 21 43 6c 6f 73 65 | 20 4d 6f 64 61 6c 20 57 |  !Close| Modal W|
|00000df0| 69 6e 64 6f 77 0d 43 20 | 48 69 74 20 69 6e 20 4d |indow.C |Hit in M|
|00000e00| 6f 64 65 6c 65 73 73 20 | 57 69 6e 64 6f 77 27 73 |odeless |Window's|
|00000e10| 20 22 57 68 79 20 56 69 | 65 77 49 74 3f 22 20 42 | "Why Vi|ewIt?" B|
|00000e20| 75 74 74 6f 6e 0d 09 20 | 20 65 6c 73 65 20 69 66 |utton.. | else if|
|00000e30| 20 28 28 66 52 65 63 2e | 75 4d 65 6e 75 49 44 20 | ((fRec.|uMenuID |
|00000e40| 3d 20 31 30 30 30 29 2e | 61 6e 64 2e 28 66 52 65 |= 1000).|and.(fRe|
|00000e50| 63 2e 77 63 48 69 74 20 | 3d 20 33 29 29 20 74 68 |c.wcHit |= 3)) th|
|00000e60| 65 6e 0d 09 20 20 20 20 | 63 61 6c 6c 20 46 61 63 |en..    |call Fac|
|00000e70| 65 49 74 28 30 2c 4e 65 | 77 57 6e 64 2c 31 30 30 |eIt(0,Ne|wWnd,100|
|00000e80| 33 2c 30 2c 30 2c 25 6c | 6f 63 28 74 68 65 52 65 |3,0,0,%l|oc(theRe|
|00000e90| 61 6c 29 29 0d 09 20 20 | 20 20 63 61 6c 6c 20 46 |al))..  |  call F|
|00000ea0| 61 63 65 49 74 28 30 2c | 53 65 74 56 61 6c 2c 31 |aceIt(0,|SetVal,1|
|00000eb0| 30 30 33 2c 30 2c 30 2c | 30 29 0d 09 20 20 20 20 |003,0,0,|0)..    |
|00000ec0| 64 6f 20 77 68 69 6c 65 | 20 28 2e 74 72 75 65 2e |do while| (.true.|
|00000ed0| 29 0d 09 20 20 20 20 20 | 20 63 61 6c 6c 20 46 61 |)..     | call Fa|
|00000ee0| 63 65 49 74 28 30 2c 4d | 64 6c 57 6e 64 2c 31 30 |ceIt(0,M|dlWnd,10|
|00000ef0| 30 33 2c 30 2c 30 2c 30 | 29 0d 09 09 69 66 20 28 |03,0,0,0|)...if (|
|00000f00| 66 52 65 63 2e 77 63 48 | 69 74 20 3d 20 31 29 20 |fRec.wcH|it = 1) |
|00000f10| 65 78 69 74 0d 09 20 20 | 20 20 65 6e 64 20 64 6f |exit..  |  end do|
|00000f20| 0d 09 20 20 20 20 63 61 | 6c 6c 20 46 61 63 65 49 |..    ca|ll FaceI|
|00000f30| 74 28 30 2c 47 65 74 56 | 61 6c 2c 31 30 30 33 2c |t(0,GetV|al,1003,|
|00000f40| 30 2c 30 2c 30 29 0d 09 | 20 20 20 20 63 61 6c 6c |0,0,0)..|    call|
|00000f50| 20 46 61 63 65 49 74 28 | 30 2c 45 6e 64 57 6e 64 | FaceIt(|0,EndWnd|
|00000f60| 2c 31 30 30 33 2c 30 2c | 30 2c 30 29 0d 09 20 20 |,1003,0,|0,0)..  |
|00000f70| 65 6e 64 20 69 66 0d 09 | 65 6e 64 20 64 6f 0d 09 |end if..|end do..|
|00000f80| 65 6e 64 0d 0d 09 53 55 | 42 52 4f 55 54 49 4e 45 |end...SU|BROUTINE|
|00000f90| 20 4f 76 65 72 50 72 6f | 63 28 25 76 61 6c 28 74 | OverPro|c(%val(t|
|00000fa0| 68 65 50 74 72 29 29 0d | 09 69 6d 70 6c 69 63 69 |hePtr)).|.implici|
|00000fb0| 74 20 6e 6f 6e 65 0d 43 | 20 4e 4f 54 45 3a 20 49 |t none.C| NOTE: I|
|00000fc0| 66 20 79 6f 75 20 75 73 | 65 20 74 68 65 20 22 21 |f you us|e the "!|
|00000fd0| 21 47 22 20 64 69 72 65 | 63 74 69 76 65 20 66 6f |!G" dire|ctive fo|
|00000fe0| 72 20 70 72 65 63 6f 6d | 70 69 6c 65 64 20 67 6c |r precom|piled gl|
|00000ff0| 6f 62 61 6c 73 2c 20 61 | 64 64 0d 43 20 6f 75 72 |obals, a|dd.C our|
|00001000| 20 46 61 63 65 53 74 6f | 72 4c 46 2e 69 6e 63 20 | FaceSto|rLF.inc |
|00001010| 67 6c 6f 62 61 6c 73 20 | 74 6f 20 79 6f 75 72 73 |globals |to yours|
|00001020| 20 61 6e 64 20 74 68 65 | 6e 20 72 65 6d 6f 76 65 | and the|n remove|
|00001030| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6c 69 6e 65 0d | followi|ng line.|
|00001040| 09 69 6e 63 6c 75 64 65 | 20 27 46 61 63 65 53 74 |.include| 'FaceSt|
|00001050| 6f 72 4c 46 2e 69 6e 63 | 27 0d 20 20 20 20 20 20 |orLF.inc|'.      |
|00001060| 72 65 63 6f 72 64 20 2f | 46 61 63 65 52 65 63 2f |record /|FaceRec/|
|00001070| 20 66 52 65 63 0d 20 20 | 20 20 20 20 63 6f 6d 6d | fRec.  |    comm|
|00001080| 6f 6e 2f 46 61 63 65 53 | 74 75 66 66 2f 66 52 65 |on/FaceS|tuff/fRe|
|00001090| 63 0d 09 69 6e 74 65 67 | 65 72 2a 34 20 74 68 65 |c..integ|er*4 the|
|000010a0| 50 74 72 0d 09 69 66 20 | 28 66 52 65 63 2e 75 43 |Ptr..if |(fRec.uC|
|000010b0| 6f 6d 6d 61 6e 64 20 3d | 20 32 36 34 29 20 74 68 |ommand =| 264) th|
|000010c0| 65 6e 20 20 20 20 21 61 | 20 6b 65 79 20 64 6f 77 |en    !a| key dow|
|000010d0| 6e 20 6d 65 73 73 61 67 | 65 3f 0d 09 20 20 69 66 |n messag|e?..  if|
|000010e0| 20 28 66 52 65 63 2e 75 | 50 61 72 61 6d 28 31 29 | (fRec.u|Param(1)|
|000010f0| 20 3d 20 33 32 29 20 74 | 68 65 6e 20 20 21 53 50 | = 32) t|hen  !SP|
|00001100| 41 43 45 20 6b 65 79 20 | 70 72 65 73 73 65 64 3f |ACE key |pressed?|
|00001110| 0d 09 20 20 20 20 66 52 | 65 63 2e 75 50 61 72 61 |..    fR|ec.uPara|
|00001120| 6d 28 31 29 20 3d 20 39 | 35 20 20 20 20 20 20 20 |m(1) = 9|5       |
|00001130| 20 20 20 21 63 6f 6e 76 | 65 72 74 20 74 6f 20 55 |   !conv|ert to U|
|00001140| 4e 44 45 52 4c 49 4e 45 | 0d 09 20 20 65 6e 64 20 |NDERLINE|..  end |
|00001150| 69 66 0d 09 65 6e 64 20 | 69 66 0d 09 63 61 6c 6c |if..end |if..call|
|00001160| 20 66 4a 75 6d 70 49 74 | 28 25 76 61 6c 28 6c 6f | fJumpIt|(%val(lo|
|00001170| 6e 67 28 74 68 65 50 74 | 72 29 29 2c 74 68 65 50 |ng(thePt|r)),theP|
|00001180| 74 72 29 20 21 70 61 73 | 73 20 6d 65 73 73 61 67 |tr) !pas|s messag|
|00001190| 65 20 74 6f 20 64 72 69 | 76 65 72 0d 09 65 6e 64 |e to dri|ver..end|
|000011a0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001210| 70 01 b0 6d dd 72 6c 0a | 4e ad 04 fa 48 6d 04 fa |p..m.rl.|N...Hm..|
|00001220| a9 f1 70 02 b0 6d dd 72 | 6c 0a 4e ad 05 02 48 6d |..p..m.r|l.N...Hm|
|00001230| 09 76 44 65 6d 6f 4c 46 | 2e 66 02 00 00 00 50 61 |.vDemoLF|.f....Pa|
|00001240| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 02 |rtSITx..|........|
|00001250| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 aa 02 9a 65 00 00 | 00 00 00 00 01 ac 41 20 |.....e..|......A |
|00001280| 2d 20 20 65 72 72 6f 72 | 20 61 63 63 65 73 73 69 |-  error| accessi|
|00001290| 6e 67 20 6c 6f 63 61 6c | 20 73 79 6d 62 6f 6c 20 |ng local| symbol |
|000012a0| 74 61 62 6c 65 2e 4e 56 | 00 00 4e ba fe 36 4e 5e |table.NV|..N..6N^|
|000012b0| 4e 75 cf 50 54 49 4d 49 | 5a 45 00 00 00 00 17 72 |Nu.PTIMI|ZE.....r|
|000012c0| 03 80 00 02 4e 56 ff fe | 3b 6d ba 9a dd 7e 20 6d |....NV..|;m...~ m|
|000012d0| dd 82 20 50 30 2d dd 7e | c1 fc 01 1a 12 30 00 ee |.. P0-.~|.....0..|
|000012e0| 67 10 42 67 48 6d fe 0e | 4e ad 0e ba 1b 5f bb a2 |g.BgHm..|N...._..|
|000012f0| 60 20 42 67 20 6d dd 82 | 20 50 30 2d dd 7e c1 fc |` Bg m..| P0-.~..|
|00001300| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 1e 00 f8 |...H..Mo|naco....|
|00001310| 00 ba 00 00 00 00 00 00 | 00 00 00 48 00 00 00 48 |........|...H...H|
|00001320| 00 00 00 00 00 08 00 06 | 00 06 00 2b 00 06 01 47 |........|...+...G|
|00001330| 01 be 00 2b 00 06 01 47 | 01 be a9 91 af 8d 00 00 |...+...G|........|
|00001340| 00 77 00 00 00 77 00 00 | 00 00 01 00 00 00 00 1e |.w...w..|........|
|00001350| 00 2b 00 06 01 47 01 be | 00 2b 00 06 01 47 01 be |.+...G..|.+...G..|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 05 |.....n..|.n...>..|
|00001380| 39 c0 05 84 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |9.......|.>..MPSR|
|00001390| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 03 f0 ff ff 00 00 00 4c | 00 0b 38 64 00 00 00 00 |.......L|..8d....|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+